














T4002 --- TTY ATTACHMENT ECHO-PRINT MAP P/N=4412867 EC=374888 PAGE 01 . 14002 --- TTY ATTACHMENT ECHO~-PRINT MAP P/N=4412867 EC=374888 PAGE O1A 
LOCTR OBJECT TEXT STNT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY LOG4002 ** MAP EC HISTORY ** 002500 253A 198 DC A fENTPT POINT TO MAP ENTRY POINT TABLE 
TSS SCCTC CCL COSC CSS COSTS SCC SCS CSS SCC SS SSS ST TCSP CS SPST TST SS PTS STS TST Le ste te 4 QQ He He Rete ae ae eke oe a he a oe he eae aR a a a ee i tk OK ea a KK KKK KEK KEKE KE KKH eH 
5 * * 200 2 eK oe OK tO ek i ok kk otk oo tani IIOK i tok tO OR Ki ek RK KK 
6 * eK PREREQUISITES eX * 201 ** ek 
7 * * 202 ** THE FOLLOWING TABLES ARE USED BY THE HDI SUPERVISOR (D3C00) od 
8 * HARDWARE EC 576943A * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER *% 
9 * * 204 ** PARAMETERS TO PASS TO THE TU'"S AND TO PASS TO THE OPERATOR ** 
10 oR OR Kom ro igo kook k tok dologok lok kokoioioi tego doko atoke gai ak ek kk dk 205 ** THE INDICATED MESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS *% 
11 * * 206 ** PURPOSE THEY ARE: xx 
12 * KK MODIFICATIONS ek x * 207 ** x 
13 * * 208 ** STEP AND ROLE ADDRESS TABLE ** 
14 * MODIFICATIONS MADE TO CORRECT PROB. ENCOUNTERED DURRING TEST* 209 ** THIS TABLE GIVES THE ADDRESS OF THE ROLE TO INVOKE AND % 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT ROLE. ** 
16 OO OR OOK OR IR foi ig I tok loki gota koe aie ateeakotie ke obra ate ake ake ake ae ote fe kee ae i ok 211 ** ENTRIES ARE AS FOLLOWES x 
17 * * 212 ** A AN ADDRESS OF THE RULE DC START AREA ** 
18 * eK REA'S INCORPORATED KK * 2713 ** B THE STEP NUMBER IN DECIMAL ** 
19 * XN * 214 ** Cc AN EQUATE FOR THE STEP NUMBER ** 
20 * NONE * 215 **% we 
21 * * 216 ** RULE INFORMATION TABLE ** 
22 OR OO OO iO gm io io go sok zk lake dak at ako ek 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE * & 
23 * * 218 ** THE APPROPRIATE RULE UNDER ADI. EACH RULE HAS ITS OWN ** 
24 * eK SPECIAL INSTRUCTIONS He * 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS ** 
25 * * 220 ** INDICATED WITH A X'OO00! FOR THE RULE EQOATE. ** 
26 * NONE * 221 ** *x* 
27 * * 222 ** S$QUES ** 
98 eo oO OO OOo og iio gio gam goto ok ok ag a tog tetoi dee ae aot deat ak eke ake ake kik aco ak 923 ** A) RULE EQUATE x*0100! Ok 
29 * * 224 ** Bt ADDRESS OF THE YES LEG RULE x 
30 * ** x E. C. HISTORY KK * 225 ** * 
31 * * 226 ** $FIXT ** 
32 * DATE 10JUN77 DATE 22JUL77 DATE O1SEP78 DATE * 227 ** A) RULE Byars X'*0101' *% 
on . E.C. 578625 E.C. 578757 E.C. 374888 BeC. : aoa pid B) ADDRESS OF MESSAGE TO PRINT ot 
35 SOR ig i ol ogi iio gio iadoioi ioiokotokoidokutok tok teoveieikoieak kik teak kee deat ak ak ake ae ie ok ak oe 230 ** $STOP * 
002500 37 14002 START X'2500'° START ADDRESS OF ALL 'I' TYPE PROG 231 ** A) RULE EQuEse X'0102' * * 
000100 38 dOQUES EQU X'0100! EQUATED VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE * 
000101 39 OFIXT EQU X¥'O101' EQUATED VALUE FOR MDI STATEMENT 233 ** *% 
000102 4QO @STOP EQU x'0102' EQUATED VALUE FOR MDI STATEMENT 234 **% $GOTO x 
000200 41 @GOTO EQU X¥'0200! EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X*0200! x 
000201 42 @CALL EQU X'0201! EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE ** 
000300 43 @INPT EQU X¥'0300! EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO Ea 
000490 uu @QOUXX EQU X'O4008 EOUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE a 
000500 45 @TUXX EQU Xx'05008 EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE ** 
000600 46 @NVLD EQU Xx'0600'! EQUATED VALUE FOR MDI STATEMENT 244 ** * x 
000000 47 EQ EQU X'0000! EQUATF FOR EQU 242 **% $CALL ** 
000004 48 N EQU X'OO004! EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X'0201! ** 
000008 49 HI EQU xX'0008! EQUATE FOR HIG 244 ** B) ADDRESS OF HWESSAGE ex 
00000C 50 NH EQU X'O00C' EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL *% 
000010 51 LO EQU X¥'0010° EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE *% 
000014 52 NL EQ X'OOT4? EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE ** 
000010 53 LT EQU X¥*0010! EQUATE FOR LESS THAN 248 ** *x 
00000C 54 LE EQU X'OOOC! EQUATE FOR LESS THAN OR EQUAL TO 249 ** SINPT **x 
000008 55 GT EQU Xx'0008! EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE x'0300! *x 
000014 56 GE Ege X'O014!8 EQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE tee OR HEX) ** 
000200 57 ON EQU X*0200! EOUATE FOR ON 252 ** C) ADDRESS OF YES LEG RULE ** 
000202 58 OF EQU X¥'*0202'! EQUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA ** 
000204 59 MX EQU X'O204! EQUATE FOR MIXE 254 ** E) LENGTH OF INPUT DATA ** 
000000 60 EBC EQU Xx*0000! EQUATE FOR EBCDIC DATA TRANSFER 255 ** F) LOWER LIMIT OF GOOD DATA ** 
000001 61 HEX EQU X'0001' EQUATE FOR HEX DATA TRANSFE 256 ** G) HIGHER LIMIT OF GOOD DATA *% 
000001 62 XTRNL EQU X'*O001' EQUATE FOR EXTERNAL REFERENCE 257 ** xx 
000000 63 INTRNL EQU X'0000' EQUATE FOR INTERNAL REFERENCE 258 ** $QU XX xe 
000000 64 PARM EQU xX*0000' EFQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE X'0400'! * x 
000001 65 DA EQU X'OO00T8 EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE ** 
000002 66 UA EQU xXx'0002' EQUATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS (INITIAL ** 
000000 67 DUMMY EQU X'OO000! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) * * 
001800 69 PID EQU *-X'OQODOO? ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES % x 
000232 70 PYYPE EQU *~X'"22CE* ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PAS ** 
00180C 71 STEPNUM EQU PTD+xX'OO0C* ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * 
001805 72 OPWD1 EQU PID+X'OOOE! ADDRESS OF OPTION WORD ONE 266 ** ** 
001810 73 OPWD2 EQU PID+X'00108 ADDRESS OF OPTION WORD TWO 267 ** $TUXX *% 
001818 74 TUSTATUS EQU PTD+x'0018! ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE xXx'0500!8 *% 
OO181A 75 TUWORK at PID+X'QO1A! ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE ** 
OO0189A 76 TUPARMY EQU PTID+X'OO9A® ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS * x 
00189C 77 TUPARM2 EQU PID+x'009C! ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS % & 
00189E 78 TUPARM3 EQU PID+X'OO9E' ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS *% 
0018A0 79 TUPARMY EQU PID+X'OOAO!? ADDRESS OF PARM 4 POINTER 273 ** F) MA FIELD FOR COMPARE eK 
0018A2 80 TUPARMS £EQU PID+X*"OQOA2* ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES eke 
OO18A4 81 TUPARM6 a PID+X'QOA4! ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU *% 
0018A6 82 TUPARM7 EQU PID+X'OOA6! ADDRESS OF PARM 7 POINTER 276 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ex 
0018A8 83 TUPARM8 £EQU PID+x'OOA8!? ADDRESS OF PARM 8 POINTER 277 ** ok 
OO18AA 84 TUPARMQ9 EQU PID+X'OOAA' ADDRESS OF PARHM 9 POINTER 278 ** SNVLD * x 
OO18AC 85 TUPARM10 EOQU PID+X*OOAC! ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X'0600! ** 
QOO18AE 86 TUPARM11 EQU PID+X*OOAE® ADDRESS OF PARM 1171 POINTER 281 ** * 
0018B0 87 TUPARM12 EQU PID+X'OOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE * 
0018B2 88 TUPARM13 EQU PID+X"OQOB2'° ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT *x* 
OO018BY4 89 TUPARM14 EQU PID+X"OOBU! ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE ** 
0018B6 90 TUPARM15 EQU PID+X'OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: *% 
0018B8 91 TUPARM16 EQU PID+X'OOB8! ADDRESS OF PARM 16 POINTER 286 ** * 
OO18BA 92 TUMSGWIR EQU PID+X'OOBA® ADDRESS OF -> TO COMMON MSG WRITER 287 ** A) NAME OF ENTRY POINT x 
OO18BE 93 TOUA EQU PID+X'OOBE! ADDRESS OF UNIT ADDRESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT RULE TABLE ** 
0018C0 94 TUD EQU PID+x*O0OCO! ADDRESS OF DEVICE ADDRESS IN EBC 289 ** * 
0018C2 95 TUBUFF EQU PID+x*O0OC2! ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A xXx*0000! x 
0018C4 96 TULAST FQU PID+X*OOCK! ADDRESS OF LAST ADDRESSABLE WORD 291 ** eK 
0018C6 97 TURESULN EQU PID+x*OOC6! ADDRESS OF LENGTH OF TU RESULIS 292 ** MESSAGE TABLE xR 
0018C8 98 TURESUL EQU PID+x*OOC8* ADDRESS OF TU RESULTS FIELD 293 **x THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR ae 
OO18 FC 99 MAPNAME EQU PID+tX'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: * * 
001948 100 TUINPT EOu PID+x*O148! ADDRESS OF SINPT DATA 295 *x* *& 
OO0196E 101 PARMARA EQU PID+tx'O16E* ADDRESS SINPT INPUT AREA 296 ** A) EQUATE FOR START OF MESSAGE BLOCK He 
0019B8 102 @DCADD1 EQU PID4+xX'0O1B8" MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE kc 
OO19BA 103 @DCADD2 EQU PID+X* OBA? MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE *x 
0019C4 104 SUPSTAT EQU PID+X'O1C4! ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE xx 
0019D0 105 DEVADD ERO PID+tX'O1D0° ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE eK 
OO19DA 106 DEVADD1 EQU PID+X' ODA? ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE 4 
OO19E4 107 DEVADD2 £EQU PIDtX'OTEU! ADDRESS OF DEVICE ADDRESS TABLE 2 302 *x G) ETC. 4K 
QO019EE 108 DEVADD3 EQU PID+X'O1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** He 
0019F8 109 DEVADDY EQU PID+X"O1F8® ADDRESS OF DEVICE ADDRESS TABLE 4 JOU RRR RK KKK RIOR ORO OK Rok oii ototigkok kok kok ik kok tokok lok dati (kkk 
001A02 110 DEVADDS £EQU PID+X'0202! ADDRESS OF DEVICE ADDRESS TABLE 5 305 4 a I IO OR ii tak iii iO ie kotok i tok okie sak kok ai ete ok oe oe 
OO1A0C 111 DEVADD6 £EQU PID4+X'O020C* ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 a2 DEVADD7 ee Aa ees ADDRESS OF DEVICE ADDRESS TABLE 7 
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OBJECT TEXT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
308 3 RR RII IO IO III II OR IG ROR Rica kak ok u24 COPY COMEOU 
309 2 RI RIOR IO III IIR I EI II I a ea a ak D5 Heke eo ok a RK KK OK KK MESSSSRMOPTAGL EEO PORT reat eee eee Cee eee ee eee TARE? 
310 ** ** 426 * 
314 a* STEP AND RULE ADDRESS TABLE -* 427 : EQUATED NAMES FOR SUPPORTED SVC'S . 
313 8a III IO I IOI IG ORI RG IO i ack B29 2 II ORO RII IO SOI IORI III IIR I IOI IO 4k Ck 
344 ia a a a le 000000 430 oUT EO U 0 OUT svVC 
002502 2518 315 Bee (noeoes) 000001 431 OUTIN EQU 1 OUTIN SVC 
002504 0001 316 0001' 000002 432 IDLE EQU 2 IDLE SVC 
000001 317 EQNO0001 Bao 0001 000003 433 IDLE5 EQU 3 IDLE SVC - INDEPENDENT OF CPU TYPE 
002506 251C 318 AL2 (N0000 2) 000004 434 CHNGE EQU 4 CHANGE LEVEL SVC 
002508 0002 319 XL2'0002' 000005 435 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
000002 320 EQNO0002 QU 0002 000006 436 EXIT EQU 6 EXIT SVC 
00250A 2520 321 AL2 (N00003) 000007 437 TERM EQU 7 TERMINATE SVC 
00250C 0003 322 XL2'0003' 000008 438 RESET EQU 8 RESET DEVICE SVC 
000003 323 EQN00003 BP 0003 000009 439 D EQU 9 EAD SVC 
00250E 2532 324 AL2 (NO0004) OOOOOA 4“4Q START EQU 10 START CYCLE STEAL SVC 
002510 0004 325 XL2'0004' 00000B 441 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
000004 326 EQNOOO0O04 EOU 0004 00000C 442 PREP EQU 12 PREPARE DEVICE SVC 
002512 2534 327 AL2 (NO00005) 00000D 443 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
002514 0005 328 XL2'0005! QOOO0O00E 444 READ EQU 14 READ WITH FUNCTION BIT 3 ON SVC 
000005 329 EQNO0005 EOU 0005 QOO000F 445 RSTAT EQU 15 READ STATUS SVC 
002516 0000 330 DC AL2 (DUMMY) 000010 G46 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
B31 Ft ek I ROE RRR ORI RIO III III RII IR I IK 000011 447 WRIT1 EOU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
332 RI RI ROR IR IOI IOI III III III IR EO IR III kf 000012 448 CTRL FOU 18 CONTROL SVC 
333 ** ** 000013 449 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
334 ** RULE INFORMATION TABLE ** 000014 450 CICB EQU 20 CONNECT TNTERUPT CONTROL BLOCK SVC 
335 ** ** 000015 451 HIO  EQU- 21 HALT ALL I/0 
336 FF I IORI IOI OO HOR Oo idk ici 000016 452 REQSD EQU 22 REQUEST USE OF DCP DISK SVC 
337 OR IIR IOI RII II III III GIO IR OR IG OR i tI AK ak 000017 453 RELSD EOU 23 RELEASE USE OF DCP DISK SVC 
338 NOOO0O0T QUES OT= (000073) , YES=N00003, CT=(C00019) , ST= (S00037) 000018 454 HALT EOQU 24 HALT SVC 
002518 0100 339+N00001 D A (@QUES 000019 455 ETOH EOU 25 EBCDIC TO HEX SVC SORT NG) 
00251A 2520 340+ DC AL2 (NOOO OOOO1A 456 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 
341 NO0002 $STOP FT=(F00077 00001B 457 ATOH EQU 27 ASCII TO HEX SVC TRING 
00251C 0102 3424+N00002 DC A (a ao5) Q00001C 458 HTOA EQU 28 HEX TO ASCII SVC (STRING 
00251E 2540 343+ Cc A (F 00077) 00001D 459 ETOA EQU 29 EBCDIC TO ASCII SVC (oaR NG 
344 N00003 STUXX T4002,01,00,£0,0T=(Q00079) , YES=N00005 00001E 460 ATOE EQU 30 ASCIT TO EBCDIC SVC (STRING 
002520 0500 345+N00003 DC A (aTORx) QO0001F 461 READI EQU 31 READ DATA SETS FOR MDI/OTIL 
002522 2534 346+ DC AL2 (N00005) 000020 462 WRITI EOQU 32 WRITE DATA SETS FOR UTIL 
002524 2688 347+ DC A (T4002) UG Ue RK OR RR IO IIR IR RI I KK dk i kik ok fete tek ak 
002526 0000 348+ DC AL2 EQ 465 * : 
002528 0001 349+ DC AL2 (0 466 * EQUATES USED BY TU'S AS CONSTANTS * 
00252A 00 350+ DC x00! 467 * * 
00252B 00 351+ ALIGN WORD W68 OO OR OO a I iO ok Oa tok foi dati doi 
00252cC 0000 352+ Cc AL2 (0) QOOO4E 469 PLUS EQU C'+? PLUS CHAR 
00252E Ci1c1 353+ CAA? 000060 470 MINUS EOU ct-t MINUS CHAR 
354+ ALIGN WORD 000000 472 ZERO EQU 0 
002530 196E 355+ C pb Ce apeeea) 000001 473 ONE EQU 1 
356 NOO0O0O4 SNVLD ea 00017) 000002 474 THO EQU 2 
002532 0600 357+N00004 C A(a Eph 000003 475 THREE EQU 3 
358 n00005 $STOP FT=(F00084) 000004 476 FOUR EQU 4 
002534 0102 359+N00005 C 7 @STOP 000005 477 FIVE EQU 5 
002536 258C 360+ DC F0008 } 000006 478 SIX EQU 6 
002538 0000 361 a AL2 (OMS ) 000007 479 SEVEN EQU 7 
00253A 362 ENTPT 000008 480 EIGHT EQU 8 
363 oeeeeedece OE APOE EE OE Ee OT EO EEE TOE IT TOE ee ae eT ree Tr 000009 481 NINE EOU 9 
366 8 FOR RR ORI IO III IOI I IR dom oR i igdak dot OOOOOA 482 TEN EOU 10 
365 ** ** 00000B 483 ELEVN EQU 11 11 
366 ** ENTRY POINT TABLE Sil 00000C 484 TWELV EQU 12 12 
367 ** ** 00000D 485 THRIN EQU 13 13 
368 RI I IGOR OR BO III IOI OR III BOR I koi a kok ik OO0O0F 486 FIVTN EOU 15 15 
JG QR I I I RIOR RII RII IOI II IO I OK GK 000010 487 SIXTN EOU 16 16 
370 ENTPT EP=A,STEP=00001 000020 488 THRY2 EQU 32 32 
00253A C140 371+ DC CL2¢*K" 000040 489 SITXT4Y EOQU 64 64 
00253C 2518 372+ DC pepo Oot 000080 490 ONE28 EQU 128 128 
00253E 0000 373 2 (DUMMY) 000100 491 TWO56 EQU 256 256 
37 I RR IO III IG II RR III III IO I i a IG a 000400 492 ONEK £EOU 1024 1024 
375 RIO IIR IORI IO IORI III II IO OR IORI GK cok ok 000800 493 TWOK FSU 2048 2048 
376 ** * * 000C00 494 THREK EQU 3072 3072 
377 ** MESSAGE TABLE ** 001000 495 FOURK EQU 4096 4096 
378 ** ** FFFFFF 497 M1 EOU -1 1 
379 OR RI III IOI IO I III IOI i iI ai ai ak ie ga ak FFFFFE 498 M2 EOU -2 -2 
380 4 i I I RIOR OR IIR III III I IR OR oa ak FFFFFD 499 43 EQOU -3 -3 
002540 381 F0O0077 EQU * FFFFFC 500 M4 EQ U -4 ~q 
002540 0001 382 D AL2 (0001) 502 ROR ORIG OR FOR Oa IGOR IO III IOI III IA I II I IOI I CC ak 
002542 0020 383 A (0032) 503 * * 
002544 E3C5SE2E340E3C5SD9D 384 DC CLOO32‘TEST TERMINATED BY '*NO'* COMMAND. ! 504 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
002564 385 F00017 EQU * 505 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
002564 0001 386 D AL2 (0001) 506 * * 
002566 0024 387 A (0 36) 507 3 ORI IG RIO IO II IIR RII Rota ig HOR Ir 
002568 T7DD5D67D40C9E2Z40D 388 DC CLO036'**NOt* ITS NOT VALID, GO TO NEXT STEP. ! 000000 508 BSO EQU 
00258C 389 FO0084 De * 000001 509 BS1 EQU 1 
00258C 0001 390 D Ro edoce 000002 510 BS2 EQU 2 
00258E 0024 391 A (0 36) 000003 511 BS3 EQU 3 
002590 D7DIDECTDICID4YOE 392 ifs CLOO36"*PROGRAM TERMINATED BY DATA= '' END ff, 1 000004 512 BS4& EQU 4 
393 PKRPKGE COPY INTROE 000005 513 BS5 EQU 5 
395 ek IR FOR ROR IOI IORI IO III II IO RIOR do 000006 514 BS6 FOU 6 
396 IR III III OR FOR IO II IOI III III IO IOI I IC OK 900 i i ae 000007 515 BS7 EOU 7 
397 ** ** 000008 516 BS8 EQU 8 
398 ** A) PROGRAM NAME --- FC 7845 TTY ATTACHMENT ECHO-PRINT TEST ** 000009 517 BS9 EQU 9 
399 ** ** OOOOOA 518 BS10 EQU 10 
4OQ ** ** 000008 519 BS11 EQU 11 
4O1 ** 8B) FUNCTION ------- ALLOWS THE OPERATOR TO ENTER CHARACTERS ** 00000C 520 BS12 EQU 12 
4Q2 ** VIA THE KEYBOARD AND HAVE THEM OUTPUT TO ** 00000D 521 BS13 EQU 13 
403 ** TO THE WRITE DEVICE OO000E 522 BS14 EQOU 14 
4O4 ** ** OOOOOF 523 BS15 EQU 15 
405 ** C) LINKAGE -------- THIS PROGRAM WILL BE ENTERED WITH ** 525 COPY T4002 
406 *% REGISTER 7 CONTAINING THE RETURN ADDRESS. ** 526 33 IO II I I II II IO III II FO RI IOI 
4 *k *« 527 * 
4QO8 ** ** 528 * TEST OVERVIEW AND OPERATING PROCEDURES 
4Q9 ** D) ENTRY POINT LABEL(S) -- PRIMARY --- RTOO ** 529 * 
410 ** SECONDARY - NONE ** 530 * THIS TEST IS DESIGNED TO RUN THE TTY ATTACHMENT IN ECHO-PRINT MODE. 
411 ** ** 531 * IT ASSUMES AN ATTACHED TTY-COMPATIBLE I/O DEVICE. THIS PROGRAM RUNS 
412 ** ** 532 * UNDER CONTROL OF THE DIAGNOSTIC CONTROL PROGRAM (DCP), WITH ITS 
413 ** £) RETURN CODES mH at FORMATTED RETURNS * * 533 * ATTENDANT CONTROLS AND RESTRICTIONS. 
414 ** "0000" IN "TURESUOL' = GOOD RETURN ** 534 * 
415 it X¥'0001' IN 'TURESUL' = ERROR RETURN * 535 FIO IO IO OOO IOI II IGRI II IS I II to8k 
536 * 
417 ** * 538 3 OI IO IO IO IO OI IGOR RIE IR IG toi 
418 ** FP) EXTERNAL REFERENCES (SUBROUTINES OR TU'S): ** 539 * 
hae nis 4002 se 2E9 : CONSTANTS AND EQUATES 
57. Ui scisclpcischediedaisbpabesivsdedieaieaivsinsdstedioaiesinadsdvaisaboabpadsenaisdoaipsdbodindeesboaieslesaspasaisteshaesbabals ab chabshsbebsdabchahabaipch daabebsaedacea al 5.2 2 OO IO III RIG OG II II OIG OR IORI IORI IO IOI IOI R BOR foi tate feat ae 
U22 III IO OI ICO IO IO IO IG III IOI III IOI HO ai ik ac 5u3 * 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0O025B4 4002 544 TUID DC X*4002! TEST UNIT TID 0026C2 3009 662 SLL 1,R0 SET UP VECTOR ADDR FOR THIS DVC ADDR 
0025B6 0000 545 RTNE DC A (*-* CURRENT ROUTINE IN EXECUTION 0026C4 0030 663 ABT X'30! ,RO * 
0025B8 0000 546 CKPT DC A (*¥-* CURRENT CHECKPOINT WITHIN A ROUTINE 0026C6 680D 25FE 664 MVW RO DAPTR SAVE IT 
0025BA 00000000 547 IDCB DC 2A (*- *) TDCB LAST EXECUTED 0026CA 8808 2630 665 MVW (R6) , SDCP SAVE THE CONTENTS 
OO25BE 4002 548 PGMID DC X'*4002! PROGRAM IDENTIFIFR FOR MESSAGES 0026CE 4000 2600 666 MVA DDB, ( SET TRANSFER VECTOR 
0025CO 00000000000000000 549 BUFFR DC ot ee PRINT BUFFER 0026D2 4324 25B4 667 MVA TUID,R3 SET RAS DISPLAY POINTER 
0025FC 25C0 550 CTLBK DC A (BUFFR 'svc OUT" CONTROL BLOCK (MSSG ADDR) 668 * 
O025FE 0000 551 DAPTR DC A (*-* POINTER TO DEVICE ADDRESS VECTOR TMAVRT ETO SSIS LISS SSSS OSS CS LSS SST SSS TCS S CSCS CSS OCLC CCL SSCS SSS SSCS CS SS PSSST Te rs 
002600 0000 552 DDB DC A ++} STA'S (FOR INTERRUPT SERVICE) GO HERE 671 * 
002602 454E4420 553 EMASK DC S'END ! "FND * ODD MASK TERMINATION CHECKS 672 * NAME: RTO1 (ECHO-PRINT TEST) 
002606 CS4E4Y4ADN 554 FMASK DC X'COS4ES4AO! "END * EVEN MASK TERMINATION CHECKS 673 * 
O0260A O01 555 IBIT DC X*'O1! CODE FOR SETTING 'I BIT IN I/0 OPS 674 * PURPOSE: TO ALLOW THE OPERATOR TO EXERCISE THE DEVICE IN AN 
00260C 0000 228 INTIN DC A (*-*) "INTERRUPT OCCURRED! INDR oF? . ECHO-PRINT MODE, 
00260E 00000000000000000 558 LSB DC 11A (*-*) , LEVEL STATUS BLOCK SAVE AREA 677 * METHOD: THE PROGRAM WILL WAIT FOR A KEY-ENTRY FROM THE OPERATOR, 
559 * 678 * THEN WILL WRITE THAT RECEIVED CHARACTER BACK OUT TO THE 
002624 3803 500 MCKCD DC X'3803' "DCP/MDI MACHINE CHECK INDR! CODE 679 * SAME DEVICE. NO CHECKING IS PERFORMED. 
002626 0000 541 MCPSW DC A (*¥-*) "MACHINE CHECK PSW*" SAVE AREA 680 * 
562 * 681 * THE RECEIVED DATA IS SAVED IN RO AND THE WRITE DATA IS 
002628 0000 563 PARM1 DC A (*-* "HTOE! UTILITY ROUTINE CONTROL BLOCK 682 * SAVED IN R7 JUST PRIOR TO THE WRITE IO. 
00262A 0000 564 PARM2 DC A (*-* * '"PARM1" = CHAR CNT, 'PARM2' = HEX 683 * 
00262C 0000 565 PARM3 DC A (*-* * DATA ADDR, 'PARM3* = EBCDIC ADDR 684 * THIS PROGRAM MAY BE TERMINATED BY ENTERING ‘END °. NOTE 
566 * 685 * THAT ‘END! WITHOUT THE FOLLOWING SPACE, WILL BE ECHOED 
00262E 0000 567 SAVER DC A (*-* DCP MACH CHK INT XFER VCTR SAVE ARFA 686 * JUST AS ANY OTHER INPUT STRING. 
002630 0000 568 SDCP DC A (*-* DCP PRIORITY INT XFER VCTR SAVE AREA 687 * 
569 * GBB Hea ee he a ae fe i a ke oh a a ae fe a i a a 2 Ra ak ie a foe ie ke ate ak ak ak ak ake i fe a ake ik of ae ic te ak kee ote aa a a ae i fe ac a a fe afk fe afe 
OOOOOA 570 MCK EO U X'OQOOA!? "MACHINE CHECK! CLASS INT XFER VCTR 689 * 
571 * 0026D6 4020 25B6 0001 690 RTO1 MVWI 1,RTNE *>*>*> R 1 
573 OOOO OR IO III OR id ok to i daa tcde aia dea ate take ak kak fea ote ake a ic ak ake ak 0026DC 4020 25B8 0001 691 MVWI 1-CKPT *> *&>*> ce 1 
574 * 0026E2 4020 2600 2726 692 MVA 1§S01,DDR SET NEW ISS ENTRY 
575 * IMMEDIATE DEVICE CONTROL BLOCKS (IDCB*S) 0026E8 8029 260A 2635 693 OB IBIT PDATA SET "ENABLING! BIT ON IN IDCB 
576 * QOO26EE 680C 2632 694 nae) PREPR PREPARE THE ATTACHMENT 
577 eC II IO II OR OC OR OC iO doioiiok ie dak i teak aa eae ak ae ik ak ac 695 * 
578 * Q0026F2 C925 260C 696 RT101 MVWZ INTIN,R1 WAIT FOR INTERRUPT 
002632 60 579 PREPR DC X'60! "PREPARE! DCB 0026F6 10FD 697 JZ RT@01 * 
002633 0900 580 PRPDA DC X'00! DEVICE ADDR 698 * 
002634 00 581 DC x'oo! * 0026F8 680C 2636 699 Age) READ READ THE DATA 
002635 00 582 PDATA DC x'oo? "PREPARE DATA! BYTE 700 * 
583 * 0026FC C020 2639 701 MVB RDATA,RO GET THE INPUT CHARACTER 
0026 36 10 584 READ DC X'10! "READ" YDCB 002700 7800 OOFF 7102 NWI X'OOFF', RO STRIP OFF ANY PROPOGATED BITS 
002637 00 585 RDDA DC X'o0! DEVICE ADDR 002704 TOE4 703 MVW RO,R7 SAVE IT IN R7 
002638 00 586 DC x'00' * 002706 C728 2641 704 MVB R7,WDATA SET IT INTO WRITE IDCB 
002639 00 =e RDATA DC X'oOo! "READ DATA! BYTE 00270A 680C 263E Jee - Io WRITE WRITE IT 
1 
00263A 6F 589 RST pC X'6F! "RESET IDCR O0O0270E C925 260C 407 RT102 MVWZ INTIN,R1 WAIT FOR INTERRUPT 
00263B 00 590 RSTDA DC x'oo® DEVICE ADDR 002712 10FD 708 JZ RT102 * 
00263Cc 0000 591 DC X*0000! * 709 * 
592 * 002714 3245 710 SLLD 8,R2 SHIFT OFF 1ST CHAR OF INPUT STRING 
Q00263E 50 593 WRITE DC X*50°8 "WRITE! IDCB 002716 7068 711 W RO R3 ADD NEW CHARACTER TO END 
00263F 00 594 WRIDA DC xX'oo! DEVICE ADDR 002718 D224 2602 712 CD EMASK,R2 ODD TERMINATION CODE (R2,R3=END ) 
002640 00 595 DC x*'00! * 00271C 1008 713 JE RTO5 YES, GO 
002641 00 596 WDATA DC x'oo! "WRITE DATA* BYTE 00271E D224 2606 714 CD FMASK,R2 EVEN TERMINATION CODE (R2,R3=END ) 
aau ia 002722 1005 ie a JE RTO5 YES, GO 
oa4 vag "MACHINE CHECK STATUS MESSAGE TEXT 002724 50E6 ED J RT101 NO. GO WAIT FOR NEXT ENTRY 
002642 D4&C3D24O0D4C1IDT4O7 602 MCMSG DC C*MCK MAP = 4002! 720 OO riick i oi go igigok a icici kiki iadoiicicdotck dr dekoioi ak aka ak ak ake ke ak cok 
002650 4OEZE3C5D7407E40 603 DC C' STEP = ! 721 * 
002658 00000000 604 STEP DC 2A (*¥-*) 722 * NAME: ISSO1 (RTO1 INTERRUPT SERVICE SUBROUTINE) 
00265C 4ODTE2ZE6407E40 605 DC C' psw = § 723 * 
002664 00000000 606 PSW DC 2A (*-*) 724 * PURPOSE: TO HANDLE INTERRUPTS DURING THE EXECUTION OF RTO1 
002668 40C9ICIDI4SOTEYLO 607 DC ' = 0 725 * 
002670 00000000 608 TIAR DC ab geod | 726 * METHOD: AN INDICATOR IS SET DENOTING THE INTERRUPT, THEN AN EXIT 
002674 4OC9IC4YC3C24O0TEYO 609 DC C' IDCB = * 727 * IS TAKEN 
00267C 0000000000000000 610 IDCBX DC WA (*-*) 728 * 
002684 O00 611 pc x'oor TERMINATOR 729 oo Oia oii io ok igok totok dotciok doi aii tok tok iokeioko tok keto k ge eae ak ake ak ak ak ak ak 
612 * 730 * 
002686 2686 613 MCMND DC A (NCMND) END OF MESSAGE TEXT STRING 002726 4020 260C 0001 731 ISSO1 MVWI 1,INTIN 
614 * 00272C 6100 732 LEX ; 
616 JO Go igo ig OG i Gr dai oi loli ioc kiotokaiiok icici dakokaiokoieeak ede ak 733 
617 * 735 OOO I IR ok doi aii iio i iit teiotog kaa fede ot akc ake ake kc ieee dle ake ieee ie ie ie af ke ak aie ake ai oi ai ake a ake ak a 
618 * CONDITION CODES 736 * 
619 * 737 * NAME: RTOS (TERMINATION) 
620 * CODE Oro INTERRUPT 738 * 
ee i So “SSS SStewwwew wee eK ea eee Se ae . PURPOSE: TO TERMINATE TESTING OF THE CURRENT DEVICE. 
623 * 0 DVC NOT ATTACHED 741 * METHOD: THE DEVICE IS RESET, THEN CONTROL IS PASSED TO DCP/NDI. 
624 * 1 DEVICE BUSY T4H2 * 
625 * 2 EXCEPTION WETS TOCCOCCC SOCCOCC CCC COOLS LOCCS SCC OCTCOLCSICCS SSIS TLS SC TSS SLPS STS SSS TS LL Te SS 
626 * 3 COMMAND REJECT DEVICE END T44 * 
627 * 4 ATTENTION 00272E 4020 25B6 0005 745 RTO5 MVWI 5,RINE *>*>*> RS 
628 * 5 INTFC DATA CHECK 002734 4020 25B8 0001 746 MVHI 1,CKPT *>*>*> cP 
629 * 6 ATTN & EXCEPTION 00273A 4020 2634 0000 T4T MVWI O,PDATA-1 UN-PREPARE TTY ATTACHMENT 
630 * q OIO ACCEPTED ATTN & DEVICE END 002740 680C 2632 748 Io PREPR * 
631 * 002744 680C 263A 749 Io RST RESET THE TTY ATTACHMENT 
ROME TELSSLOSSCSCSOCCSL OCS OSS SCC SSCS LOCC SCS SS CLT SEL SLL CSS CSS SCL S TS SL Le tS 002748 5000 750 J GDEND GO END IT 
633 * 751 * 
TRUM TS STCCSCS LT SSCS OCS SS SSC C CSCS CLSS LCC SOC C SSCS SSCS ST SSS SLOSS CL STS PLS T ect te tS 753 * 
636 * 754 ** "END* ROUTINE 
637 * NAME: RTOO (INITIALIZATION AND DCP INTERFACE) 755 * 
638 * 00274A 4020 18C8 0000 756 GDEND MVWI 0O,TURESUL SET STATUS WORD TO 0 
639 * PURPOSE: TO INITIALIZE PROGRAM EXECUTION AND INTERFACE WITH THE 002750 6301 757 END DIS 1 DISABLE INTERRUPTS 
640 * DCP. 002752 882C 2630 25FE 758 MVW SDCP, DAPTR* RESTORE DCP XFER VECTOR 
641 * 002758 C825 262E 7159 MVWZ SAVER RO RESTORE DCP MCK RTN ADDR AND CLEAR SW 
642 * METHOD: THIS ROUTINE INITIALIZES THE IDCB'S AND SERVES AS THE 00275C 680D OOOA 760 MVW RO, CK * 
643 * GENERAL INTERFACE WITH THE DCP. THE ID OF THE DEVICE AT 002760 6201 761 EN 1 ENABLE INTERRUPTS 
Sit : THE SPECIFIED DEVICE ADDRESS IS VERIFIED. 002762 6802 0000 3e2 BORER B xm & RETURN TO DCP/HNDI 
646 PTET CTOCS CSCC SCSSCL LT CCSOCSSCS CCS STS S CL SCSC LCC LC LS SSS SS SSS SS SST SS TST SL SL eT Te Le TGS eo Re ate ae ae fe ae afc oe ae ah ae ae ae ae a afc ae a ate ae ae a a ae ae ae ae ae eae af ae ae fe he ae fe hc a ae ae ae ae ae af ae ae a ae ak ae ae hc ae aa ae ae ae ae fe ae ae ae ata eae a 
647 * 766 * 
002688 6FOD 2764 648 T4002 MVW R7 ,GOBCK+2 SET RETURN LINK 767 * NAME: MACHINE CHECK SUBROUTINE 
00268C 4020 25B6 4002 649 MVWI X'4002" ,RTNE INITIALIZE ROUTINE AND 768 * 
002692 4020 25B8 0000 650 MVWI O,CK * CHECKPOINT VALUES 769 * PURPOSE: TO FIELD MACHINE CHECKS, SHOULD THEY OCCUR, TERMINATE 
002698 6808 262E 651 MVW SAVER,RO WE ALREADY SAVED VECTOR ENTRY ? 7170 * THE PROGRAH, PRINT A MESSAGE TO THAT EFFECT, AND RETURN 
00269C 181C 622 P JNZ RTO1 YES, JUMP ae * TO THE CONTROLLER 
00269E 8828 OQOOA 262E 654 MVW MCK,SAVER NO. SAVE IT 173 * CALLING SEQUENCE: HARDWARE BRANCH VIA "MACHINE CHECK! SIA 
OO26A4 4020 OOOA 2766 655 MVA MACHK MCK PUT OUR OWN ROUTINE SIA IN THERE 7174 * 
QO26AA CO20 19D0 656 MVB DEVADH , RO GET DEVICE ADDRESS 7175 * RETURN: DCP ° 
QO026AE 7800 OOFF 657 NWI X'OOFF® ,RO STRIP OFF PROPOGATED BITS 776 * 
0026B2 C028 2633 658 MVB RO,PRPDA SET DVC ADDR INTO EACH IDCB 777 sok tok loo ok ak lok iio ioioioiai oka tokio iio oR IO aokokoi i fiom IORI gga ioi i R gak ik io gaia ede tei 
9026B6 C028 2637 659 MVB RO,RDDA * 778 * 
0026BA C028 2638 660 MVB RO,RSTDA * 002766 582F 2626 779 MACHK CPPSR MCPSW SAVE PSW 
QO026BE C028 263F 661 MVB RO,WRTDA * OO276A 4724 2628 780 MVA PARM1,R7 SET CONTROL BLOCK ADDRESS 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
00276E 4020 2628 0002 781 MVWI 2,PARM1 CONVERT THE STEP NUMBER FROM HEX TO DECLARED NAME ATTRIBUTES AND REFERENCES 
002774 4020 262A 180C 782 MVA SPEPNUM, PARM2 * EBCDIC AND INSTALL IT IN THE 'MACBK 
00277A 4020 262C 2658 783 MVA STEP, PARN3 * STATUS" MESSAGE 46 @NVLD ABSOLUTE. HEX VALUE (00000600) 
002780 601A 784 SVC HTOE * 
002782 4020 262A 2626 53e : MVA MCPSW,PARM2 VE ' = pe ABO UTE. St eee aes er 
CONVERT THE SAVED 'MACHK PSW' FROM 
002788 4020 262C 2664 787 MVA PSW,PARM3 * HEX TO EBCDIC AND INSTALL IT IW THE 40 @STOP ABSOLUTE. HEX VALUE (00000102) 
OO278E 601A 788 SVC HTOE * 'MACHK STATUS' MESSAGE STRING 342 359 
002790 4020 262A 2605 490 . MVA  LSB,PARM2 VE e aa Cees igiedimcaanneae, 
CONVERT THE FAILING ADDRESS FROM HEX 
002796 4020 262C 2670 791 MVA  TAR,PARM3 * TO EBCDIC AND INSTALL IT IN THE 549 BUFFR ADDRESS. HEX LOCATION (000025C0) IN CSECT(I4002 ) LENGTH (2) 
00279C 601A 792 SVC HTOF * 'MACHK STATUS' MESSAGE STRING 550 01 
00279E 4020 2628 0004 an * ida, a eRnnG ee 546 CKPT ADDRESS. HEX LOCATION (000025B8) IN CSECT(I4002 ) LENGTH (2) 
NVERT THE LAST IDCB FROM HEX TO 
0027A4 4020 262A 25BA 795 MVA  IOCB,PARS2 * EBCDIC AND INSTALL IT tN THE 'MACHK 550 CTLBK ADDRESS. HEX LOCATION (000025FC) IN CSECT(I4002 ) LENGTH(2) 
OO27AA 4020 262C 267C 796 MVA  IDCBX,PARM3 * STATUS" MESSAGE STRING 807 
0027B0 601A 19] : SVC HTOE * 551 DAPTR ADDRESS; HEX LOCATION (000025FE) IN CSECT(I4002 ) LENGTH(2) 
0027B2 8828 2624 25BE 799 MVW  #MCKCD,PGMID SET PROGRAM ID TO *DCP/MDI' (FAKE IT 552 DDB ADDRESS. HEX LOCATION (00002600) IN CSECT(I4002 ) LENGTH (2) 
0027B8 4124 2642 800 MVA MCMSG,R1 MOVE MESSAGE STRING TO BUPFED 666 692 
0027BC 4224 25Cc0 801 MVA  BUFFR,R2 * 105 DEVADD ADDRESS. HEX LOCATION (000019D0) IN CSECT(I4002 +) LENGTH(1) 
0027CO 4724 0044 802 MVWI MCMND-MCMSG,R7 * 656 805 
0027C4 2944 803 MVFN (R gR2 * 67 DUMMY ABSOLUTE. HEX VALUE (00000000) 
0027C6 6808 180C 804 MVW TEPAUM,RO SET STEP NUMBER 330 361 373 
9027CK C120 12D0 805 KYB DEVADD, ft SET DEVICE ADDRESS 553 EMASK ADDRESS. HEX LOCATION (00002602) IN CSECT(I4002 ) LENGTH (4) 
RESERVED 
0027D2 4724 25FC 807 MVA  C&LBK,R7 ET CONTROL BLOCK POINTER 362 ENTPT ADDRESS. HEX LOCATION (0000253A) IN CSECT(I4002 ) LENGTH (1) 
0027D6 6000 808 SVC OUT OUTPUT THE MESSAGE 198 
0027D8 6802 274A 893 . B GDEND BRANCH 47 EQ ABSOLUTE. HEX VALUE (00000000) 
000000 811 END 554 FMASK ADDRESS. HEX LOCATION (00002606) IN CSECT(I4002 ) LENGTH(4) 
381 F00077 ADDRESS. HEX LOCATION (00002540) IN CSECT(I4002 ) LENGTH(1) 
389 F00084 ADDRESS. HEX LOCATION (0000258C) IN CSECT(I4002 ) LENGTH(1) 
756 GDEND ADDRESS. HEX LOCATION (0000274A) IN CSECT(I4002 ) LENGTH (6) 
762 GOBCK ADDRESS. HEX LOCATION (00002762) IN CSECT(I4002 ) LENGTH(4) 
456 HTOE ABSOLUTE. HEX VALUE (00000018) 
784 788 79 7197 
608 IAR ADDRESS. HEX LOCATION (00002670) IN CSECT(I4002 ) LENGTH(2) 
555 IBIT ADDRESS. HEX LOCATION (0000260A) IN CSECT(I4002 ) LENGTH(1) 
547 IDCB ADDRESS. HEX LOCATION (000025BA) IN CSECT(I4002 ) LENGTH(2) 
610 IDCBX ADDRESS. HEX LOCATION (0000267C) IN CSECT(I4002 ) LENGTH(2) 
556 INTIN ADDRESS. HEX LOCATION (0000260C) IN CSECT(I4002 ) LENGTH(2) 
731 Isso1 ADDRESS. HEX LOCATION (00002726) IN CSECT(I4002 ) LENGTH(6) 
37 T4002 CSECT. START (00002500) LENGTH (732) ESDID(1) 
558 LSB ADDRESS. HEX LOCATION (0000260E) IN CSECT (14002 LENGTH (2) 
779 MACHK ADDRESS. HEX LOCATION (00002766) IN CSECT(I4002 LENGTH (4) 
570 MCK ABSOLUTE» HEX VALUE (00000008) 
560 MCKCD ADDRESS. HEX LOCATION (00002624) IN CSECT(I4002 ) LENGTH(2) 
613 MCMND ADDRESS. HEX LOCATION (00002686) IN CSECT(I4002 ) LENGTH(2) 
602 MCMSG ADDRESS. HEX LOCATION (00002642) IN CSECT(I4002 ) LENGTH(14) 
561 MCPSW ADDRESS. HEX LOCATION (00002626) IN CSECT(I4002 ) LENGTH(2) 
339 N00001 ADDRESS. HEX LOCATION (00002518) IN CSECT(I4002 ) LENGTH(2) 
342 N00002 ADDRESS. HEX LOCATION (0000251C) IN CSECT(I4002 ) LENGTH(2) 
345 N00003 ADDRESS, HEX LOCATION (00002520) IN CSECT(I4002 ) LENGTH (2) 
357 N00004 ADDRESS. HEX LOCATION (00002532) IN CSECT(I4002 ) LENGTH(2) 
359 N00005 ADDRESS, HEX LOCATION (00002534) IN CSECT(I4002 ) LENGTH (2) 
430 OUT ABSOLUTE. HEX VALUE (00000000) 
101 PARMARA ADDRESS. HEX LOCATION (0000196E) IN CSECT(I4002 ) LENGTH(1) 
563 PARM1 ADDRESS. HEX LOCATION (00002628) IN CSECT(I4002 ) LENGTH (2) 
564 PARM2 ADDRESS. HEX LOCATION (0000262A) IN CSECT(I4002 ) LENGTH(2) 
565 PARM3 ADDRESS. HEX LOCATION (000026 2C) IN CSECT(I4002 ) LENGTH(2) 
582 PDATA ADDRESS, HEX LOCATION (00002635) IN CSECT(I4002 ) LENGTH(1) 
548 PGMID ADDRESS. HEX LOCATION (000025BE) IN CSECT(I4002 ) LENGTH(2) 
69 PID ADDRESS. HEX LOCATION (00001800) IN CSECT (14002 , LENGTH (1) 
71 72 73 74 715 76 77 78 9 
80 81 82 83 84 85 86 87 88 
89 90 91 92 93 94 95 96 97 
98 99 100 101 102 103 104 105 106 
107 108 109 110 111 112 
579 PREPR ADDRESS, HEX LOCATION (00002632) IN CSECT(I4002 ) LENGTH(1) 
580 PRPDA ADDRESS. HEX LOCATION (00002633) IN CSECT(I4002 ) LENGTH(1) 
606 PSW ADDRESS. HEX LOCATION (00002664) IN CSECT(I4002 ) LENGTH(2) 
587 RDATA ADDRESS. HEX LOCATION (00002639) IN CSECT(I4002 ) LENGTH(1) 
585 RDDA ADDRESS. HEX LOCATION (00002637) IN CSECT(I4002 ) LENGTH(1) 
5384 READ ADDRESS. HEX LOCATION (00002636) IN CSECT(I4002 ) LENGTH(1) 
589 RST ADDRESS. HEX LOCATION(0000263A) IN CSECT(I4002 ) LENGTH(1) 








T4002 --- TTY ATTACHMENT ECHO-PRINT MAP 


P/N= 
CROSS-REFERENCE LISTING 


T4002 --- TTY ATTACHMENT ECHO-PRINT MAP P/N=4412867 EC=374888 


CROSS~REFERENCE LISTING 


4412867 EC=374888 PAGE 05 


COPYRIGHT YBM CORP 1976 COPYRIGHT 


DECLARED NAME ATTRIBUTES AND REFERENCES 
749 
590 RSTDA ADDRESS. HEX LOCATION (0000263B) IN CSECT(I4002 ) LENGTH(1) 
545 RTNE ADDRESS, HEX_ LOCATION (00002586) IN CSECT(I4002 ) LENGTH(2) 
690 RTO1 ADDRESS. HEX LOCATION (000026D6) IN CSECT(I4002 ) LENGTH(6) 
745 RTOS ADDRESS, HEX LOCATION (0000272F) IN CSECT(I4002 ) LENGTH (6) 
696 RT101 ADDRESS. HEX LOCATION (000026F2) IN CSECT(I4002 ) LENGTH(S) 
707 RT102 ADDRESS. HEX LOCATION(0000270EF) IN CSECT(I4002 ) LENGTH(4) 
0 RO REGISTER. HEX VALUE (90000000) 
651 656 657 4658 659 ° 660 661 £4662 ~°& 663 
664 665 666 701 =$%702 703 #711 + «#29759 + ~ #49760 
0 R1 REGISTER. HEX VALUE (00000091) 
696 707 80 803 805 
0 R2 REGISTER. HEX VALUE (00000002) 
710. #712 ~«27 1 803 806 
0 R3 REGISTER. HEX VALUE (00000003) 
0 R7 REGISTER. HEX VALUE (00000007) 
648 703 70 802 807 
567 SAVER ADDRESS; HEX LOCATION (000026 2E) IN CSECT(I4002 ) LENGTH(2) 
568 SDCP ADDRESS: HEX LOCATION (00002630) IN CSECT(I4002 ) LENGTH(2) 
604 STEP ADDRESS. HEX LOCATION (00002658) IN CSECT(I4002 ) LENGTH(2) 
71 STEPNUM ADDRESS, HEX LOCATION (0000180C) IN CSECT(I4002 ) LENGTH(1) 
544 TUID ADDRESS. HEX LOCATION (000025B4) IN CSECT(I4002 ) LENGTH(2) 
98 TURESUL ADDRESS. HEX LOCATION (000018C8) IN CSECT(I4002 ) LENGTH(1) 
648 T4002 ADDRESS. HEX LOCATION (00002688) IN CSECT(I4002 ) LENGTH(4) 
596 WDATA ADDRESS. HEX LOCATION (00002641) IN CSECT(I4002 ) LENGTH(1) 
593 WRITE ADDRESS. HEX LOCATION (0000263E) IN CSECT(I4002 ) LENGTH(1) 
594 WRTDA ADDRESS. HEX LOCATION (0000263F) IN CSECT(I4002 ) LENGTH(1) 
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